home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / PSET.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  742b  |  29 lines

  1. ' PSET.BAS
  2. ' This program demonstrates the PSET statement.
  3.  
  4. CLS
  5.  
  6. INPUT "Please enter the screen mode (0-13):  ", modeNum%
  7. SCREEN modeNum%
  8.  
  9. LOCATE 22, 23
  10. PRINT "Col: Row:"
  11.  
  12. FOR i% = 0 TO 200 STEP 20        ' values for xcoordinate
  13.     FOR j% = 0 TO 135 STEP 15    ' values for ycoordinate
  14.         PSET (i%, j%)            ' use default foreground color
  15.         LOCATE 23, 1             ' position text cursor
  16.         PRINT "Current coordinates: ("; i%; ","; j%; ")"
  17.        
  18.         FOR k% = 1 TO 2000       ' delay loop
  19.         NEXT k%
  20.        
  21.         PSET (i%, j%), 0         ' use background color to erase
  22.         LOCATE 23, 22
  23.         PRINT SPACE$(13)         ' erase printed coordinates
  24.     NEXT j%
  25. NEXT i%
  26.  
  27.  
  28.  
  29.